home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList_0597 / AMOSLIST / screenconfig.amos / screenconfig.amosSourceCode
Encoding:
AMOS Source Code  |  1998-06-24  |  1015 b   |  36 lines
  1. CONFIGURE_SCREEN[0,32]
  2.  
  3. Procedure CONFIGURE_SCREEN[SCRN_NUMBER,NUM_COLOURS]
  4.    '
  5.    '   Configure Screen 
  6.    '
  7.    '   (c) K.Hill, May 1997 
  8.    '
  9.    '   Initialise screen using this routine, sets to ntsc friendly lowres 
  10.    '   you choose screen number, and number of colours.  It auto sets up
  11.    '   configs first time it is used, and resets screens to those coords. 
  12.    '
  13.    Screen Open SCRN_NUMBER,320,234,NUM_COLOURS,Lowres
  14.    Curs Off 
  15.    If Not Exist("s:listgame.config")
  16.       Cls 2 : Paper 2 : Pen 16 : Rem black on white default colours.
  17.       Locate 0,10
  18.       Print "Move screen with mouse, hit left mouse"
  19.       Print "to save settings"
  20.       X Mouse=124 : Y Mouse=55
  21.       While Mouse Key<>1
  22.          X=X Mouse : Y=Y Mouse
  23.          Screen Display 0,X,Y,,
  24.       Wend 
  25.       Open Out 1,"s:listgame.config"
  26.       Print #1,X
  27.       Print #1,Y
  28.       Close 1
  29.    Else 
  30.       Open In 1,"s:listgame.config"
  31.       Input #1,X
  32.       Input #1,Y
  33.       Screen Display SCRN_NUMBER,X,Y,,
  34.       Close 1
  35.    End If 
  36. End Proc